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(3) Piskane o'n 
(4) LIBSDAY = Return day number as a longword integer 
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E Libspay - Get number of days since zero date 
T /1-002/ 3; File: LIBDAY.MAR 

ITITITIIIIIIITILL LLL LILI LLL LLL LLL LLL LTT iii iii iii iiiiii TTT 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Saansecketon” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
see eokat ite T BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


3 es 8 4 
mer <w 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 
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$s 
; FACILITY: General Utility Library 
; ABSTRACT: 


: LIBSDAY returns a longword integer gente ining the number of days 
; since the system zero date of November 17, 1858. This is useful 


Soooooooo 


CoOoooooooo 
SSSSSsssss Ss 


; for peeping track of transaction dates, for the values can be 
easily subtracted and compared, unlike ASCII date formats. 


ENVIRONMENT: User Mode, AST Reentrant 


Ssss 
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: AUTHOR: Steven B. Lionel, CREATION DATE: 04-April-1979 
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days since zero dite’ 1S SEt188 33:65:08 IBRTL.SRESLIBDAY.RaR:1 "28" 3) 


«SBTTL DECLARATIONS 
INCLUDE FILES: 


EXTERNAL DECLARATIONS: 
-DSABL GBL 


; Prevent undeclared 
3; symbols from being 
3 eeeedpaet! WL al. 


-EXTRN SSS_INTOVF ; Integer overflow 


> MACROS: 


: EQUATED SYMBOLS: 


Zé 
3; Stack offsets for local values: 
; System quadword time 


SYSTIM = 0 3 

YEAR = 8 3; Year number (not used) 
MONTH = 10 3; Month number (not used) 
DAY = 12 ; Day number (not used) 
HOUR = 1 ; Hour of day 

MINUTE = 1 3; Minute of hour 

SECOND = 1 3; Second of minute 
HUNDREDTHS = 20 3; Hundredths of seconds 


: OWN STORAGE: 


> PSECT DECLARATIONS: 


-PSECT _LIRSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 
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-SBTTL LIBSDAY = Return day number as a longword integer 
FUNCTIONAL DESCRIPTION: 
LIBSOAY is @ routine which returns the ber days 
7” $358.” tionally, 


since the system zero date of November 
the oge ver can supply a quadword by reference containing a 


2S 


time 


n system time 
time 


rmat to be used instead of the system 


uw 


Be Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Se Se Ge Se Se Se Se Se 
+ 


22 2°26 


An optional return argument is a sonquere integer containing 
the number of millisecond units s 


Day zero is November 17, 1858. 

wOTE If the caller supplies a quadword t 

verified at all. If it is negative (bit 
value returned will be negative. 

CALLING SEQUENCE: 


status.wic.v = LIBSDAY fey mumber Wh» #. tyser tine. PGet 
. day_time.wl.r 


nce midnight. 


++ ++ 


ime, it is not 
63 on), the day_number 


at Ad a ne a wd 


INPUT PARAMETERS: 


00000008 user_time = 8 Optional. A quadword containing 

a time in 10 microsecond units. 

If omitted, the current system 
time will be used. 

One way for FORTRAN programmers to 
provide a quadword is to declare: 


INTEGER®4 TIME(2) 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
day_number = 4 


A longword integer containing the 

number of days since the system 

zero date. 

The number of 10 millisecond (.01 second) 


0000000C 
units since midnight. 


day_time = 12 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
SS$_NORMAL = Successful completion. 


SSS"INTOVF = The optional argument yser tine is present and represents 
a date past the year 8600. 


a a a a a dk a nd = 2 = = 4 2 = on = oa = = 1 2 
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-ENTRY LIBSDAY , “M<IV> 3 


Entry point 


2s 


EXIT: 


2S 


MOVL = #1, RO ; Return with SS$_NORMAL 


~~ 


SOO 


S000 0000600060 G0 Go : eC 
LSS SS SSSFTS Sonne 


50 01 00 
04 


OVFLO: 
ERROR: 


50 00000000'8F 00 MOVL #SS$_INTOVF, RO 


RET ; Return with error status 


; Return with error status 


co 


0094 
D095 


1 
1 
! 
SE 18 1 5 SUBL2 #24, SP ; Create quadword block for 
! 8 ; syst o Sine plus result block 
02 C 18 cree (AP), #<user_time/4> : Optional arg present? 
08 A sit r_time(AP) : Omitted by reference? 
: Yes 
6— 08 BC 1 MOVG gyger_time(AP), SYSTIM(SP) ; Get user supplied time 
Cc : BRB ; Don’t get system time 
167 108: SGETTIM_S SYSTIM(SP) ; Get system time 
7350 €9 1 BLBC RO, ERROR ; Should NEVER happen, but 
18 3; is good practice to check. 
51 $50 9ACA F 171 208: EDIV #1000000000, (SP), RO, R1 =; Convert to number of days. 
04 BC $6 SF o 17 DIVLS #864, RO, ada “number (AP) ; and store. . 
0 of 1 17 CMPB (AP), #<day_time/4> ; Day time requested? 
1 19 174 BLSS 3; No 
oc re ° Ve? art day_time(AP) : Gnitted by reference? 
; Yes 
04 A ? 133 TSTL YSTIM+4(SP) 3; Is system time negative? 
1 178 BGEQ 0$ 3 
6—€ 6€ OD 17 MCOML SYSTIM(SP), SYSTIM(SP) ; Yes, force it positive 
04 AE O4 AE OD 180 MCOML SYSTIM+4(SP), SYSTIM+4 (SP) 
f +4 181 INCL SY ACSP 
04 AE 1) 1 § ADWC #0, SYSTIM+4(SP) 
1D 1 BVS ovFLo : Overflow? 
50 —E 00 0 184 30$: MOVL SP, RO . zeve stack pointer 
0055 185 SNUMTIM_S YEAR(RO), SYSTIM(RO) —_; Get numeric time 
30 50 a D0 1 $ BLBC RO, ERROR 3; Error? 
0 f DC 1 CLRQ ; Find time in units of .01 secs 
50 3 AE C A 4! 1 3 MULW #60, HOUR(SP), RO 
10 AE Ad 06 1 ADDW2 MINUTE(SP), RO ; RO has minutes 
50 3C C4 00 190 MULL 
51 iz ae OB 072 191 MOV, —SECOND(SP), RI 
50 3 CO 00 1 ¢ arele R1, RO 3; RO has seconds 
50 F C4 0079 1 LL2 #160, RO 
5114 AE «680 0080 «194 vu HUNDREDTHS (SP) RI 
ocec 50 51 Ci 6 5 ADDL3 R1, RO, a@day_time(AP) =; store .01 seconds 
' 
OBS 197 
0 198 
199 
: 
3 


SOOOOCS OS GOODS OO0NO 


me, 
t number of days since zero dat 15-SEP-1984 23:55: AX/VMS -00 Pp I 
DAY = Return day number as a Tongwor 6-S Pa} 984 #7:68;98 CTORTL. SRETCIODAY MAR; 1 _ i= 
| 
PS 


kK 7 
> ot maher of sare since sore ine tEAEUSS PEGE] INE Pee May Of 


BSDAY 01 
FLO 01 
es 
SS$_ INTOVF eeeerere xX 0 
SYSSGETTIM eeneneee G oi 
YSSNUMTIA eerereee 1 
STIM = 
USER_TIME = 
= 0 
pow a nme nemo moa w me + 
; Psect synopsis E . 
PSECT name Allocation PSECT No. Attributes 
- ABS. S44 44 ( - 89 f 0.) NOPIC USR CON ABS” LCL os NOEXE NORD NOWRT NOVEC BYTE 
_LIBSCODE 0000095 ( 14 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
eeeueaussocueseoueeceuces$ 
H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 4 0:00: 8.9 0: 0: 8 .70 
pomnene processing 114 0:00:00.31 0: 99 
106 + 700.49 0: 9 °84 
aad table sort 0 :00.01 0:00:00.01 
Pass 2 51 :00.28 0: 3: 17 
Symbol table output :00.01 0:00:00.02 
poses synepets cutout :00.01 Q: 8 08°60 
ross-reference ou :00. :00:00. 
Assembler run totals. 30 8 : ts 2 8:80:99: 90 


ihe working rs Limit was 1050 pages. 

174 bytes ‘ pages) of virsyel memory were used to buffer the intermediate code. 
ih re were 10 pages of symbol table space allocated to hold 18 non-local and 3 local symbols. 
05 source linge were read in Pass 1, producing 11 object records in Pass 2. 

pages of virtual memory were used to define 3 macros. 
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Macro library name Macros defined 


"$255$DUA28: CSYSLIBISTARLET. MLB;2 3 
18 GETS were required to define 3 macros. 


i= 


i 


= Get number of days since zero cu 17736-1888 $9 232:98 AX/VMS Bacco VOR Op Page .| 


L 1espav 
VAX-11 Macro Run Statistics LIBRTL.S DAY.MAR;1 (4) 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/D1SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBDAY/OBJ=OBJ$:LIBDAY MSRC$:LIBDAY/UPDATE=(ENHS$:LIBDAY) 
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